10 REM *** BABYSITTER'S NOTES ***
20 REM *** BY SANDY SMITH     ***
30 REM *** JANUARY 1984       ***
40 REM *** TRANSLATED FOR THE ***
45 REM *** 64 BY DONNA WOODY  ***
50 POKE53280,1:POKE53281,7:PRINTCHR$(144):POKE53272,23:PRINTCHR$(8)
100 REM *** TITLE PAGE ***
110 PRINTCHR$(147):POKE781,0:POKE782,10:SYS65520:PRINT"**********************"
112 POKE781,1:POKE782,10:SYS65520:PRINT"*                    *"
113 POKE781,2:POKE782,10:SYS65520:PRINT"* [194][193][194][217][211][201][212][212][197][210]'[211] [206][207][212][197][211] *"
114 POKE781,3:POKE782,10:SYS65520:PRINT"*                    *"
115 POKE781,4:POKE782,10:SYS65520:PRINT"*   BY [211]ANDY [211]MITH   *"
116 POKE781,5:POKE782,10:SYS65520:PRINT"*                    *"
117 POKE781,6:POKE782,10:SYS65520:PRINT"*   [212]RANSLATED BY    *"
118 POKE781,7:POKE782,10:SYS65520:PRINT"*                    *"
119 POKE781,8:POKE782,10:SYS65520:PRINT"*   [196]ONNA [203]. [215]OODY   *"
120 POKE781,9:POKE782,10:SYS65520:PRINT"*                    *"
121 POKE781,10:POKE782,10:SYS65520:PRINT"**********************"
130 PRINT:PRINT"     [215]HEN YOU HIRE A SITTER FOR YOUR":PRINT
131 PRINT"CHILDREN, YOU SHOULD PROVIDE HIM OR HER":PRINT
140 PRINT"WITH SPECIFIC WRITTEN INFORMATION AND":PRINT
141 PRINT"INSTRUCTIONS FOR BOTH NORMAL ROUTINES":PRINT
142 PRINT"AND EMERGENCY SITUATIONS.":PRINT
145 POKE781,23:POKE782,5:SYS65520:PRINT"[208]RESS <[211][208][193][195][197][160][194][193][210]> TO CONTINUE.";
146 POKE198,0:WAIT198,1:GETA$:PRINTCHR$(147)
150 PRINT"     [212]HE PAGE THAT IS ABOUT TO BE":PRINT
151 PRINT"PRINTED IS A BLANK FORM FOR YOU TO FILL":PRINT
152 PRINT"IN AND GIVE TO YOUR SITTER BEFORE YOU":PRINT
153 PRINT"LEAVE.":PRINT
160 POKE781,10:POKE782,0:SYS65520
161 PRINT"[208]RESS <[208]> WHEN YOUR PRINTER IS READY":PRINT
162 PRINT"[208]RESS <[209]> TO QUIT RIGHT NOW"
163 POKE198,0:WAIT198,1:GETQ$
170 IFQ$="Q" OR Q$="[209]" THEN PRINTCHR$(147):GOTO500
180 IFQ$="P"ORQ$="[208]"THEN210
185 GOTO160
200 REM *** THE FORM ***
210 PRINTCHR$(147):OPEN4,4,7:CMD4
220 FORI=1TO3:PRINT:NEXT
230 PRINTSPC(25)"[201][206][198][207][210][205][193][212][201][207][206] [198][207][210] [207][213][210] [194][193][194][217][211][201][212][212][197][210]":PRINT
240 PRINTSPC(10)"[207]UR CHILDREN'S NAMES AND AGES ARE:":PRINT
241 PRINTSPC(10);:FORI=1TO60:PRINT"[164]";:NEXT:PRINT:PRINT
242 PRINTSPC(10);:FORI=1TO60:PRINT"[164]";:NEXT:PRINT:PRINT
250 PRINTSPC(10)"[207]UR NAMES ARE:";:FORI=1TO45:PRINT"[164]";:NEXT:PRINT:PRINT
260 PRINTSPC(10)"[207]UR ADDRESS HERE IS: ";:FORI=1TO39:PRINT"[164]";:NEXT:PRINT:PRINT
261 PRINTSPC(31);:FORI=1TO39:PRINT"[164]";:NEXT:PRINT
270 PRINT:PRINTSPC(10)"[207]UR PHONE NUMBER HERE IS: ";:FORI=1TO34:PRINT"[164]";:NEXT:PRINT
280 PRINT:PRINTSPC(10)"[207]UR EXPECTED TIME OF RETURN IS: ";:FORI=1TO28:PRINT"[164]";:NEXT:PRINT
290 PRINT:PRINTSPC(10)"[215]E CAN BE REACHED AT: ";:FORI=1TO38:PRINT"[164]";:NEXT:PRINT
300 PRINT:PRINT:PRINTSPC(10)"[197][205][197][210][199][197][206][195][217] [208][200][207][206][197] [206][213][205][194][197][210][211]: ":PRINT
310 PRINTSPC(31)"[198][201][210][197]: [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT
311 PRINTSPC(29)"[208][207][204][201][195][197]: [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT
320 PRINTSPC(10)"[193][205][194][213][204][193][206][195][197] [207][210] [210][197][211][195][213][197] [211][209][213][193][196]: [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT
330 PRINTSPC(21)"[208][207][201][211][207][206] [195][207][206][212][210][207][204]: [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT
340 PRINTSPC(16)"[200][207][211][208][201][212][193][204] [206][193][205][197]/[208][200][207][206][197]: [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT
350 PRINTSPC(16)"[196][207][195][212][207][210]'[211] [206][193][205][197]/[208][200][207][206][197]: [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT
360 PRINTSPC(31)"[212][193][216][201]: [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT
370 PRINTSPC(10)"[200]ELPFUL [206]EIGHBORS:":PRINT
371 PRINTSPC(10)"[206]AME: [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]  [208]HONE: [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT
372 PRINTSPC(10)"[206]AME: [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]  [208]HONE: [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":PRINT
380 PRINT:PRINTSPC(10)"[211][208][197][195][201][193][204] [201][206][211][212][210][213][195][212][201][207][206][211]:"
390 PRINT#4:CLOSE4
400 REM *** WHAT NEXT ***
410 POKE781,10:POKE782,1:SYS65520:PRINT"[215]ANT TO MAKE ANOTHER COPY (Y/N)?[160]";
411 POKE198,0:WAIT198,1:GETQ$
412 IFQ$="N"ORQ$="[206]"THEN500
420 IFQ$="Y"ORQ$="[217]"THEN160
430 GOTO410
499 REM *** END ***
500 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
510 POKE631,13:POKE632,13:POKE198,2:END